home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / GT3mail.dxpack / {AE626D69-17F3-448F-B6A1-1BD7482F09F2}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-11-25  |  1KB  |  29 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Dim objNum
  5.  
  6. Sub Object_OnScriptEnter
  7.     objNum=Right(Object.Name,Len(object.Name)-10)
  8. End Sub
  9.  
  10. Sub Object_OnStateChange(state)
  11.     If state="Command executed" Then
  12.         If object.state="normal" Then
  13.             object.state="blended"
  14.             desktopx.Object("GT3mm_label"&objNum).visible=False
  15.         Else
  16.             object.State="normal"
  17.             desktopx.Object("GT3mm_label"&objNum).visible=True
  18.         End If
  19.     object.Sleep 500
  20.     desktopx.ScriptObject("GT3mm_display"&objNum).savesettings
  21.     End If
  22. End Sub
  23.  
  24. Function Object_OnLButtonUp(x, y, Dragged)
  25.     If dragged Then
  26.         desktopx.ScriptObject("GT3mm_display"&objNum).savesettings
  27.     End If
  28. End Function]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>35</EditorLeft><EditorTop>137</EditorTop><EditorRight>1100</EditorRight><EditorBottom>1146</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  29.